home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
utmisc2
/
datebkiv.lha
/
DateBookIV
/
InstallDateBook
< prev
next >
Wrap
Text File
|
1996-03-31
|
5KB
|
318 lines
; File : InstallDateBook
;
; $Project: DateBook
;
; $Description: Install script for DateBookIV
;
; $Module Id:
; $Original Author: Robert Hardy
; $Date Started: Fall 1994
;
; $Header: sqa:BobsStuff/DateBook/InstallDateBook-v 1.13 1996/03/31 01:05:22 Bob Exp $
;
; $Revision: 1.13 $
;
; $State: Exp $
;
; $Locker: $
;
;
;
(set vernum (getversion))
(set ver (/ vernum 65536))
(if (< ver 37)
(abort "DateBookIV requires at least verion 2.04 of AmigaDOS")
)
(set prog_dir
(askdir
(prompt "Select Program directory")
(help @askdir-help)
(default "Sys:Utilities")
)
)
(set help_dir
(askdir
(prompt "Select Documentation directory")
(help @askdir-help)
(default prog_dir)
)
)
(set env_dir "ENV:DateBook")
(makedir env_dir)
(textfile
(dest (tackon env_dir "Help"))
(append help_dir)
)
(set env_dir "ENVARC:DateBook")
(makedir env_dir)
(textfile
(dest (tackon env_dir "Help"))
(append help_dir)
)
(set rexx_dir
(askdir
(prompt "Select Rexx Script directory")
(help @askdir-help)
(default prog_dir)
)
)
(set db_dir
(askdir
(prompt "Select Database directory")
(help @askdir-help)
(default prog_dir)
)
)
(set dbase_name (tackon db_dir "Dates.dat"))
(Copyfiles
(prompt ("Copying DateBook to " prog_dir))
(help @copyfiles-help)
(source "DateBook")
(infos)
(dest prog_dir)
)
(Copyfiles
(prompt ("Copying DateBook.guide to " help_dir))
(help @copyfiles-help)
(source "DateBook.guide")
(infos)
(dest help_dir)
)
(Copyfiles
(prompt ("Copying ReadMe to " help_dir))
(help @copyfiles-help)
(source "ReadMe")
(infos)
(dest help_dir)
)
(Copyfiles
(prompt ("Copying DateEdit.info to " prog_dir))
(help @copyfiles-help)
(source "DateEdit.info")
(dest prog_dir)
)
(Copyfiles
(prompt ("Copying Tomorrow.info to " prog_dir))
(help @copyfiles-help)
(source "Tomorrow.info")
(dest prog_dir)
)
(Copyfiles
(prompt ("Copying December.info to " prog_dir))
(help @copyfiles-help)
(source "December.info")
(dest prog_dir)
)
(Copyfiles
(prompt "Copying Pano.dbk to " rexx_dir)
(help @copyfiles-help)
(source "rexx")
(pattern "*.dbk")
(dest rexx_dir)
)
(tooltype
(prompt "Setting Database Tool")
(help "No help here either")
(settooltype "FILE" dbase_name)
(dest
(tackon prog_dir "DateBook")
)
)
(tooltype
(prompt "Setting Database Tool")
(help "No help here either")
(settooltype "FILE" dbase_name)
(dest
(tackon prog_dir "DateEdit")
)
)
(tooltype
(prompt "Setting Database Tool")
(help "No help here either")
(settooltype "FILE" dbase_name)
(dest
(tackon prog_dir "December")
)
)
(tooltype
(prompt "Setting Database Tool")
(help "No help here either")
(settooltype "FILE" dbase_name)
(dest
(tackon prog_dir "Today")
)
)
(set convert -1)
(if (exists dbase_name)
(set convert
(askbool
(prompt "\n\n\nDates.dat already exists.\nShould I run `ConvertDateBook'?")
(help "The Database size has changed and must be converted to the new format")
)
)
)
; file exist. should we convert it.
(if (= convert 1)
(run "convertdatebook" dbase_name)
)
; file doen't exist, copy the default.
(if (= convert -1)
(Copyfiles
(prompt ("Copying Dates.dat to " db_dir))
(help @copyfiles-help)
(source "Dates.dat")
(dest db_dir)
)
)
(set start_mode 6)
(set start_mode
(askchoice
(prompt
"\n\nWhich mode would you like DateBook startup in?")
(choices "MemoCal" "Editor" "CLI" "Rexx Server" "AppIcon" "Clock" "Calendar")
(default 6)
(help "Select your prefered startup mode")
)
)
(set prog "DateBook")
(set prog_string
(cat
"run <>NIL: " prog
)
)
(set startup_str "MEMO")
(set iconfy_str "CLOCK")
(if (= start_mode 0)
(set startup_str "MEMO")
)
(if (= start_mode 1)
(set startup_str "EDIT")
)
(if (= start_mode 2)
(
(set startup_str "CLI")
(set prog_string
(cat "run <>CON:10/10/600/100/DateBookIV/auto/wait/close "
prog " quiet"
)
)
)
)
(if (= start_mode 3)
(set startup_str "SERVER")
)
(if (= start_mode 4)
(
(set startup_str "ICONIFY")
(set iconify_str "ICON")
)
)
(if (= start_mode 5)
(set startup_str "ICONIFY")
)
(if (= start_mode 6)
(
(set startup_str "ICONIFY")
(set iconify_str "CAL")
)
)
(set prog (tackon prog_dir "DateBook"))
(set cfg_str
(cat
"DateBookIV_CFG\n\n"
"STARTMODE " startup_str "\n"
"ICONIFYTYPE "iconify_str "\n"
"KEYPAD OFF\n"
"CONFIRM ON\n"
"NOTIFY OFF\n\n"
"END DateBookIV_CFG\n"
)
)
(textfile
(dest (cat prog ".dfg"))
(append cfg_str)
)
(startup "DateBookIV"
(prompt
(cat
"\n\nWould you like DateBook run during startup?\n\n"
"This will add a line to your s:User-Startup file.\n\n"
prog_string "\n\n"
)
)
(command prog_string)
(help
(cat "This will add a line to your s:User-Startup file.\n\n"
prog_string "\n\n"
"Note: It will not remove any old entry"
)
)
)
(set viewer "More")
(if (exists "sys:Utilities/Multiview")
(set viewer "Multiview")
(if (exists "sys:Utilities/AmigaGuide")
(set viewer "AmigaGuide")
)
)
(set read_file "Readme")
(run ("%s <>NIL: %s" viewer read_file))
(message "\n\nInstallation complete.\n\n You will find the Programs in " prog_dir
", the database in " db_dir " and docs in " help_dir"\n\nEnjoy!"
)
(exit (quiet))